home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 3 NO 8.st / SEURDOCS.ARC / TYPE.LST < prev    next >
Encoding:
File List  |  1988-12-07  |  4.7 KB  |  238 lines
  1. '
  2. ' Type program to replace Desktop Show function.
  3. '
  4. ' by S.K. Webb
  5. '
  6. Rez%=Xbios(4)
  7. Gosub Palette_saver
  8. If Rez%=0
  9.   Void Xbios(5,L:-1,L:-1,1)
  10.   Setcolor 0,7,7,7
  11.   Setcolor 2,0,7,0
  12.   Setcolor 1,0,7,0
  13.   Setcolor 3,0,0,0
  14. Endif
  15. If Rez%<2
  16.   Bline%=199
  17. Else
  18.   Bline%=399
  19. Endif
  20. T1$=" Page:⇩  Page:⇧  Line Up:⇦  Line Down:⇨   Start:<Home>  End:<Ins>  Quit:<Undo> "
  21. Command_line$=Space$(128)
  22. Bmove Basepage+129,Varptr(Command_line$),127
  23. For C%=1 To Len(Command_line$)
  24.   If Mid$(Command_line$,C%)=" "
  25.     Mid$(Command_line$,C%)=Chr$(0)
  26.   Endif
  27. Next C%
  28. While Asc(Right$(Command_line$,1))<33
  29.   Exit If Len(Command_line$)<2
  30.   Command_line$=Left$(Command_line$,Len(Command_line$)-1)
  31. Wend
  32. While Asc(Left$(Command_line$,1))<33
  33.   Exit If Len(Command_line$)<2
  34.   Command_line$=Right$(Command_line$,Len(Command_line$)-1)
  35. Wend
  36. If Len(Command_line$)<2
  37.   Fileselect "\*.*","",File$
  38.   If Len(File$)=0
  39.     Gosub End
  40.   Endif
  41. Else
  42.   File$=Command_line$
  43. Endif
  44. Repeat
  45. Until Mousek=0
  46. Hidem
  47. Dim Type$(2200)
  48. F$=String$(82,32)
  49. Cr$=Chr$(13)+Chr$(10)
  50. For I%=1 To 2199
  51.   Type$(I%)=F$
  52. Next I%
  53. Type$(0)=Cr$
  54. Open "I",#1,File$
  55. Ex%=Lof(#1)
  56. If Ex%>255
  57.   Test$=Input$(255,#1)
  58. Else
  59.   Test$=Input$(Ex%,#1)
  60. Endif
  61. Close #1
  62. X0%=Instr(Test$,Cr$)
  63. Fr%=Fre(0)
  64. Ar$=Str$(Fr%-5000)
  65. If Fr%<(Ex%\4)+5000
  66.   Gosub Too_long_abort
  67. Endif
  68. If X0%=0
  69.   Gosub Non_text_abort
  70. Endif
  71. If X0%>242
  72.   Gosub Long_line_abort
  73. Endif
  74. Test$=""
  75. Dim T%((Ex%\4)+1)
  76. Cls
  77. If Rez%<2
  78.   Deffill 3,2,8
  79. Else
  80.   Deffill 1,2,4
  81. Endif
  82. Pbox 0,18,639,Bline%
  83. If Rez%=0
  84.   Get 1,18,319,Bline%,Desk$
  85.   Put 320,18,Desk$
  86. Endif
  87. Print "LOADING   ";File$;" -- Length of File: ";Str$(Ex%);" Bytes"
  88. Bload File$,Varptr(T%(0))
  89. Print "File LOAD is complete. Text FORMAT requires ";Left$(Str$(Ex%/7565),6);" seconds to complete.";
  90. N%=1
  91. I%=0
  92. Li%=I%
  93. Repeat
  94.   Repeat
  95.     A%=Peek(Varptr(T%(0))+I%)
  96.     Inc I%
  97.   Until A%=10
  98.   If I%-Li%=<82
  99.     Bmove Varptr(T%(0))+Li%,Varptr(Type$(N%)),I%-Li%
  100.   Else
  101.     Bmove Varptr(T%(0))+Li%,Varptr(Type$(N%)),80
  102.     Type$(N%)=Left$(Type$(N%),80)+Chr$(13)+Chr$(10)
  103.     Li%=Li%+80
  104.     Inc N%
  105.     If I%-Li%=<82
  106.       Bmove Varptr(T%(0))+Li%,Varptr(Type$(N%)),I%-Li%
  107.     Else
  108.       Bmove Varptr(T%(0))+Li%,Varptr(Type$(N%)),80
  109.       Type$(N%)=Left$(Type$(N%),80)+Chr$(13)+Chr$(10)
  110.       Li%=Li%+80
  111.       Inc N%
  112.       Bmove Varptr(T%(0))+Li%,Varptr(Type$(N%)),I%-Li%
  113.     Endif
  114.   Endif
  115.   Type$(N%)=Left$(Type$(N%),I%-Li%)
  116.   Li%=I%
  117.   Inc N%
  118. Until I%=Ex% Or N%>2199
  119. Dec N%
  120. Top%=N%
  121. Cls
  122. Erase T%()
  123. For I%=Top%+1 To 2199
  124.   Type$(I%)=""
  125. Next I%
  126. Heading%=1
  127. Deftext 1,0,0,6*Rez%+(1*(Rez%-1))
  128. Gosub Screen_print
  129. Do
  130.   C$=Inkey$
  131.   If Len(C$)=2
  132.     C%=Asc(Right$(C$))
  133.   Endif
  134.   If Len(C$)=1
  135.     Cc%=Asc(C$)
  136.   Endif
  137.   If Cc%>48 And Cc%<58
  138.     Index%=Index%+(Jmp%*(Cc%-48)*Heading%)
  139.     Gosub Screen_print
  140.     Cc%=0
  141.   Endif
  142.   If C%=80
  143.     Heading%=1
  144.     Jmp%=23
  145.     Index%=Index%+Jmp%
  146.     Gosub Screen_print
  147.     C%=0
  148.   Endif
  149.   If C%=72
  150.     Heading%=-1
  151.     Jmp%=23
  152.     Index%=Index%-Jmp%
  153.     Gosub Screen_print
  154.     C%=0
  155.   Endif
  156.   If C%=75
  157.     Heading%=-1
  158.     Jmp%=1
  159.     Index%=Index%-Jmp%
  160.     Gosub Screen_print
  161.     C%=0
  162.   Endif
  163.   If C%=77
  164.     Heading%=1
  165.     Jmp%=1
  166.     Index%=Index%+Jmp%
  167.     Gosub Screen_print
  168.     C%=0
  169.   Endif
  170.   If C%=71
  171.     Heading%=1
  172.     Jmp%=23
  173.     Index%=0
  174.     Gosub Screen_print
  175.     C%=0
  176.   Endif
  177.   If C%=97
  178.     Gosub End
  179.   Endif
  180.   If C%=82
  181.     Heading%=-1
  182.     Jmp%=23
  183.     Index%=Top%-24
  184.     Gosub Screen_print
  185.     C%=0
  186.   Endif
  187. Loop
  188. Gosub End
  189. Procedure Screen_print
  190.   Cls
  191.   If Index%>Top%-24
  192.     Index%=Top%-24
  193.   Endif
  194.   If Index%<0
  195.     Index%=0
  196.   Endif
  197.   If 23+Index%=>Top%
  198.     For I%=0+Index% To Top%-1
  199.       Print Type$(I%);
  200.     Next I%
  201.   Else
  202.     For I%=0+Index% To 23+Index%
  203.       Print Type$(I%);
  204.     Next I%
  205.   Endif
  206.   Print At(1,25);Chr$(27);"p";
  207.   For Z%=1 To Len(T1$)
  208.     Void Bios(3,5,Asc(Mid$(T1$,Z%,1)))
  209.   Next Z%
  210.   Print Chr$(27);"q";
  211. Return
  212. Procedure Too_long_abort
  213.   Alrt$="    ERROR! FILE TOO LONG!| File Must Be Text File Less|Than "+Ar$+" Bytes With No Lines|  Longer Than 240 Characters!"
  214.   Alert 3,Alrt$,1,"ABORT",Dummie%
  215.   Gosub End
  216. Return
  217. Procedure Non_text_abort
  218.   Alrt$="    ERROR! NON-TEXT FILE!| File Must Be Text File Less|Than "+Ar$+" Bytes With No Lines|  Longer Than 240 Characters!"
  219.   Alert 3,Alrt$,1,"ABORT",Dummie%
  220.   Gosub End
  221. Return
  222. Procedure Long_line_abort
  223.   Alrt$="   ERROR! LINES TOO LONG!| File Must Be Text File Less|Than "+Ar$+" Bytes With No Lines|  Longer Than 240 Characters!"
  224.   Alert 3,Alrt$,1,"ABORT",Dummie%
  225.   Gosub End
  226. Return
  227. Procedure Palette_saver
  228.   For I%=0 To 15
  229.     Userp$=Userp$+Mki$(Xbios(7,I%,-1))
  230.   Next I%
  231. Return
  232. Procedure End
  233.   Void Xbios(6,L:Varptr(Userp$))
  234.   Void Xbios(5,L:-1,L:-1,Rez%)
  235.   Showm
  236.   System
  237. Return
  238.